PaPI project - Innovations 263 (PSO* changed routines list)

Prior versions of existing routines saved as ZOL*  (e.g. PSON52 copied to ZOLN52)
Changed routines have "PaPI" at the end of the list of patch numbers. All references
to PaPI should be changed to the actual patch number when implemented.

Copies of VistA changes kept in sync in the Innovations sandbox at both IP addresses:
  172.19.100.97 and
  172.19.200.122 (aka i263vista.vacloud.us) - this one used to test with external AudioCARE 


Routines:
Park/Unpark a prescription:
PSOPRK - new - Park a prescription
PSOPRKA - new - (Park a prescription, continued)
PSORPTP - new - PSO PARK REPORT

new and renew Rx - set PARK and xref APARK levels, remove from label queue, set activity log:
PSON52   ;BIR/DSD - files new entries in prescription file ;08/09/93
PSORN52  ;BIR/DSD - files renewal entries in prescription file ;08/09/93

When site parameter is set add PARK to prompt: MAIL/WINDOW/PARK (except for refills (if 
refilling, would be unparking. If want it parked at refill time, use hidden action and 
don't do a refill)). 
PSODIR2  ;IHS/DSD/JCM - rx order entry contd ;01/27/93 7:12
add PARK as choice for copy and then edit Routing field:
PSOORED1 ;ISC-BHAM/SAB - edit orders from backdoor ;6/30/06 10:21am
add PARK for choice for ED action:
PSOOREDT ;BIR/SAB - edit orders from backdoor ;7/23/09 9:06am


Searched for "routing" (any case) and changed applicable routines:
PSOARX   ;B'ham ISC/SAB - display archived rxs ;03/10/94  1:08 pm 
PSOBGMG3 ;BHAM ISC/LC - BINGO BOARD MANAGER (CONT'D) ; 06/19/96
PSODRDU1 ;BIR/SAB - dup drug class checker for pending orders ;1/3/05 11:33am
PSOORAL1 ;BHAM ISC/SAB - Build Listman activity logs ; 12/4/07 12:25pm

deleted Rx's - remove PARK level and APARK xref:
PSORXDL  ;BIR/SAB - Deletes one prescription ; 11/15/10 4:24pm

set MW variable to "PARK" if MW routing for last fill is "P":
PSOLBL   ;BIR/SAB/RTR - BOTTLE LABEL ;11/20/08 12:14pm

include Park routing:
PSOORFI1 ;BIR/SAB - finish OP orders from OE/RR continued ;5/23/05 2:11pm
PSOORNE2 ;BIR/SAB-display finished orders from backdoor ;9/11/06 10:24am
PSOORNE3 ;ISC-BHAM/SAB - display pending orders from backdoor ;2/3/05 1:59pm
PSOORNE4 ;BIR/SAB-display renew RXs from backdoor ;07/29/96
PSOORNEW ;BIR/SAB - display orders from oerr ;6/19/06 3:53pm
PSORENW3 ;IHS/DSD/JCM - EDIT TEMPLATE FOR RENEW RX ORDER ENTRY ; 03/28/93 20:59
PSORXPR  ;BHAM ISC/SAB - view individual prescription ;08/23/96  8:15 am
PSORXVW  ;BHAM ISC/SAB - listman view of a prescription ;5/25/05 2:10pm
PSORXVW1 ;BIR/SAB-view prescription con't ; 12/4/07 12:28pm

Rx View
PSOORAL  ;BHAM-ISC/SAB - activity log list ; 28-APR-1995

For mail/window/park prompt when renewing from selection number:
PSOCMOPA ;BIR/HTW-Utility for Hold/Can ;[ 12/30/96  10:28 AM ]
Also in PSOCMOPA - don't allow to park if during transmission:
MSG         W !!,"A CMOP Rx cannot be"_$S($G(PSOFROM)="HOLD":" placed on HOLD",$
            G(PSOFROM)="CANCEL":" DISCONTINUED",$G(PSOFROM)="PARK":" PARKED",1:"
             DELETED")

Don't auto-set to mail for future date if it is P for Park
PSORN52A ;IHS/DSD/JCM/SAB/FLS-Break up of PSORN52 ;08/09/93

to send ACTIVE/PARKED to CPRS:
PSOORRL  ;BHAM ISC/SAB - returns patient's outpatient meds ;07/21/96
PSOORRL3 ;BHAM ISC/SJA - returns patient's outpatient meds-new sort ;02/02/07
PSOORRLN ;BHAM ISC/SJA - returns patient's outpatient meds-new sort ;10/12/06
PSOORRLO ;BHAM ISC/SJA - returns patient's outpatient meds-original sort ;10/12/06


change for header when pulling up an Rx:
PSOLMLST ;ISC-BHAM/SAB - list orders for processing ; 18-APR-1995
example:
OP Medications (PARKED)       Sep 28, 2012@15:52:38          Page:    1 of    2 
FIFTY,PATIENT                                                      <A> 

Related to hidden actions PK and UPK:
PSOLMUTL ;BIR/SAB - listman utilities ;03/07/95
PSOPPaPI ;BIRM/BNT - Post-intall for PSO*7*PaPI ;02/16/11 <-- chg rotuine name
and patch piece to patch# when implemented

Don't allow action if parked:
PSORXPA1 ;BIR/SAB - listman partial prescriptions ;07/14/93
PSORXRPT ;BIR/SAB-reprint of a prescription label ;9/20/07 9:40am

show PARK in summary of prescriptions (PSO RX option)
PSOORNE1 ;BIR/SAB - Display new orders from backdoor ;03/06/95

Add PK at LABEL: prompt to park everything in label queue:
PSORXL   ;BHAM ISC/SAB - action to be taken on prescriptions ;10/15/08 2:12pm

Get status of a prescription (add check for Parked)
(called from PSOCPDUP, PSODDPR2, PSODDPRE, PSOP, PSOP1, PSORXPR, PSOSD, PSOVERC):
PSOFUNC  ;BHAM ISC/DRI - functions moved from the psf global ;10/26/92 11:49

Set status after call to PSOFUNC if $G(^PSRX(J,"PARK")):
PSOP1    ;BHAM ISC/SAB - prints short medication profile ;02/25/94

Remove PARK level and APARK xref if DC or held:
PSOCAN3  ;BIR/RTR/SAB - auto dc rxs due to death ;2/05/97 2:59pm
PSOHLDA  ;BIR/MFR - HOLD/UNHOLD functionality (cont.) ;07/15/96


For health summary reports:
PSOHCSUM ;BHAM ISC/SAB - gather data for outpatient rx health care summary ;03/0
1/96 8:29

PSO RELEASE REPORT:
PSODISP1 ;BHAM ISC/SAB,PDW - Rx released/unrelease report ; 08 Oct 1999  9:58 AM

order checks:
CHANGE STATUS TO "PARKED" (has "SUSPENDED" instead of ACTIVE/SUSP so didn't use ACTIVE/PARKED)
PSODDPR5 ;BIR/SAB - displays OP/rdi/pending/nva orders ;09/320/06 11:33am
PSODRDU2 ;BHAM ISC/SAB - dup drug/class display for outpatient orders ;9/23/97 8
:40am

add Park to MAIL/WINDOW checks:
PSORLST2 ;BIRM/MFR - List of Patients/Prescriptions for Recall Notice ;12/30/09
PSOORDER ;BHAM ISC/SAB- utility routine to return Rx data ; 04/09/96 10:30 am

Change status to "AP" if active/parked:
PSOPOLY  ;BHAM ISC/SAB - patients with a minimum amount of rx's within a # of da
ys ;10/06/93
PSOORUT1 ;BIR/SAB - Utility routine for oerr interface ;02/22/95

changes for Medication Reconciliation report in CPRS although see following comments for
future routine that may be used instead:
PSOQUAP2 ;HINES/RMS - UNIFIED PROFILE BASED ON PORTLAND IDEA ; 30 Nov 2007  7:58
 AM
         ;;7.0;OUTPATIENT PHARMACY;**294,PaPI**;DEC 1997;Build 13
         
         ;**** PaPI note *** this routine will be replaced by GMTSPST1 per Rob S
ilverman -
         ; make sure correct routine is changed for Medication Reconciliation wh
en implementing PaPI and make sure it has ACTIVE/PARKED instead of ACTIVE/PARK

Changed for label reprint when select by "RP" then range of numbers. (Still does the
prompting as if it will queue the label(s), but will skip any parked ones (like it does
for held and dc'd, etc.)):
PSORXRP1 ;BIR/SAB-rx speed reprint listman ;03/06/95

Show status as Active/Parked:
PSOSD0   ;BHAM ISC/SAB - action or informational profile cont. ;6/21/07 8:20am

Show Active/Parked in display of new order in place of fill date:
PSONEW2  ;BIR/DSD - displays new rx information for edit ;7/17/06 6:59pm

label print - Mail-in refill section - include parked original with no refills if not previously processed
PSOTRLBL ;BHAM ISC/AMC/SAB - MULTI RX REFILL REQUEST FORM ;11/16/92 15:37
PSOLLL7  ;BHAM/JLC - LASER LABEL MULTI RX REFILL REQUEST FORM ;12/12/92

Don't allow release if parked. (use UPK hidden action to unpark and specify fill date first):
PSODISP  ;BIR/SAB,PWC - MANUAL BARCODE RELEASE FUNCTION ;03/02/93

Changes for using edit to go to or from park:
PSOORED2 ;ISC-BHAM/SAB - edit orders from backdoor con't ;03/06/95 10:24
PSOORED6 ;BIR/SAB - edit orders from backdoor ;03/06/96
PSORXED  ;IHS/DSD/JCM - edit rx utility ;8/18/10 3:16pm
PSORXED1 ;BHAM ISC/SAB - Edit prescription utility #2 ; 02/18/98  3:16 PM

Allow finishing by P(ark) pickup route:
PSOORFIN ;BIR/SAB-finish cprs orders ; 8/27/08 4:57pm

Automatically unpark when refilling. If previous fill was parked without a label or going to CMOP or not released, reuse fill when refilling:
PSOREF0  ;IHS/JCM - REFILL CON'T ; 6/17/11 6:02pm

Prompt for MAIL/WINDOW first before prompt for fill date. If parked, don't prompt for fill date:
PSORENW  ;BIR/SAB-renew main driver ; 6/8/11 3:22pm
PSORENW4 ;BIR/SAB - rx speed renew ; 11/13/08 8:50am

At LABEL: prompt, if enter P to show profile, show AP for active/parked prescriptions:
PSODSPL  ;IHS/DSD/JCM - DISPLAY RX PROFILE TO SCREEN ;03/07/93 18:11

If refilling from VistA (refill options or PROCESS TELEPHONE REFILLs for AudioCARE),
don't set other comment of "CPRS Auto Refill":
PSOATRFC ;BIR/MHA - Automate CPRS Refill request ; 5/25/11 4:48pm


new routine (RPC calls for Park/Unpark functionality between CPRS and Outpatient Pharmacy):
PSORPC01 ; INNO263/AA - PAPI INTERFACE ROUTINES ; 10/03/2012 13:34

